|
100
|
How do I draw italic the group's name
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComItalic of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
End_Procedure
|
|
99
|
How do I bold the group's name
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "<b>Group</b> 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
98
|
How do I bold the group's name
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComBold of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
End_Procedure
|
|
97
|
How can I align the icon in the group's caption
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1 <img>1</img>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Set ComAlignment of hoGroup to OLEexRight
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
96
|
How can I align the group's name
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComAlignment of hoGroup to OLEexRight
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
95
|
How can I align the group's name
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComAlignment of hoGroup to OLEexLeft
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
94
|
How can I assign some extra data to a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComUserData of hoGroup to "your data"
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
93
|
How can I display an icon in the group's caption
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group <img>1</img> text <img>2</img>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
92
|
How can I display an icon in the group's caption
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComImage of hoGroup to 1
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
91
|
How can I access an item by its position
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 3" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComPosition of hoItem to 0
Send Destroy to hoItem
Variant voItem1
Get ComItemByPos of hoGroup 1 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComBold of hoItem1 to True
Send Destroy to hoItem1
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
90
|
How can I change the position of a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Get ComAdd of hoGroups1 "Group 2" to Nothing
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup
Get ComAdd of hoGroups2 "Group 3" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComPosition of hoGroup to 0
Send Destroy to hoGroup
Send Destroy to hoGroups2
End_Procedure
|
|
89
|
How can I change the group's caption
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Set ComCaption of hoGroup to "new caption"
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
88
|
How can I get the number or count of items in a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Get ComAddItem of hoGroup (ComCount(hoGroup)) Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
87
|
How can I access an item in a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Variant voItem
Get ComItem of hoGroup 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBold of hoItem to True
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
86
|
How can I remove all items, from a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send ComClear of hoGroup
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
85
|
How can I remove an item, from a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send ComRemoveItem of hoGroup 1
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
84
|
How can I add a new item to a group
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" 1 to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
83
|
How can I add a new item to a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
82
|
How can I add a new item to a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
81
|
How can I get the groups as they are listed
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Get ComAdd of hoGroups "Group 2" to Nothing
Get ComAdd of hoGroups "Group 3" to Nothing
Send Destroy to hoGroups
End_Procedure
|
|
80
|
How can I access a group by position
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Get ComAdd of hoGroups "Group 2" to Nothing
Get ComAdd of hoGroups "Group 3" to Nothing
Variant voGroup
Get ComItemByPos of hoGroups 1 to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComBold of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
79
|
How can I access a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Get ComAdd of hoGroups "Group 2" to Nothing
Get ComAdd of hoGroups "Group 3" to Nothing
Variant voGroup
Get ComItem of hoGroups 1 to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComBold of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
78
|
How can I clear the groups collection
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Get ComAdd of hoGroups "Group 2" to Nothing
Get ComAdd of hoGroups "Group 3" to Nothing
Send ComClear of hoGroups
Send Destroy to hoGroups
End_Procedure
|
|
77
|
How can I remove a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Get ComAdd of hoGroups "Group 2" to Nothing
Get ComAdd of hoGroups "Group 3" to Nothing
Send ComRemove of hoGroups 1
Send Destroy to hoGroups
End_Procedure
|
|
76
|
How can I add a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
75
|
How do I count the number of groups
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Get ComAdd of hoGroups "Group 2" to Nothing
Get ComAdd of hoGroups "Group 3" to Nothing
Get ComAdd of hoGroups (ComCount(hoGroups)) to Nothing
Send Destroy to hoGroups
End_Procedure
|
|
74
|
How can I display pictures with a custom size, instead icons, in the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set 1"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set 1"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set 2"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set 2"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComShortcutPicture "Set 1" to (vPicture)
Variant vPicture1
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\auction.gif`)" to vPicture1
Set ComShortcutPicture "Set 2" to (vPicture1)
Set ComShortcutPictureWidth to 32
Set ComShortcutPictureHeight to 32
Set ComShortcutBarHeight to 32
End_Procedure
|
|
73
|
How can I display pictures instead icons, in the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set 1"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set 1"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set 2"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set 2"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComShortcutPicture "Set 1" to (vPicture)
Variant vPicture1
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\auction.gif`)" to vPicture1
Set ComShortcutPicture "Set 2" to (vPicture1)
Set ComShortcutBarHeight to 44
End_Procedure
|
|
72
|
How can I change the visual appearance of the shortcut bar, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComShortcutResizeBackColor to |CI$2000000
Set ComShortcutBarSelCaptionBackColor to |CI$1000000
Set ComShortcutBarSelBackColor to |CI$1000000
Set ComBackColorGroup to |CI$1000000
End_Procedure
|
|
71
|
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComShortcutResizeBackColor to |CI$1000000
Set ComExpandShortcutCount to 1
End_Procedure
|
|
70
|
How do I change the background color of the separator between groups and the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComShortcutResizeBackColor to (RGB(255,0,0))
Set ComExpandShortcutCount to 1
End_Procedure
|
|
69
|
How can I change the visual appearance of the shortcut bar, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComShortcutBarSelCaptionBackColor to |CI$1000000
Set ComExpandShortcutCount to 1
End_Procedure
|
|
68
|
How do I change the selection background color in the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComShortcutBarSelCaptionBackColor to (RGB(255,0,0))
Set ComExpandShortcutCount to 1
End_Procedure
|
|
67
|
How can I change the visual appearance of the shortcut bar, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComShortcutBarSelBackColor to |CI$1000000
End_Procedure
|
|
66
|
How do I change the selection background color in the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComShortcutBarSelBackColor to (RGB(255,0,0))
End_Procedure
|
|
65
|
How can I change the visual appearance of the shortcut bar, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComShortcutBarBackColor to |CI$1000000
End_Procedure
|
|
64
|
How do I change the background color in the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComShortcutBarBackColor to (RGB(255,0,0))
End_Procedure
|
|
63
|
How can I programmatically change expand or collapse the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComExpandShortcutCount to 1
End_Procedure
|
|
62
|
How do I change the icon for the expanding or collapsing the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComExpandShortcutImage to 3
End_Procedure
|
|
61
|
How can I enable or disable resizing the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComExpandShortcutCount to 1
Set ComAllowResizeShortcutBar to False
End_Procedure
|
|
60
|
How do I specify the height of the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComExpandShortcutCount to 1
Set ComShortcutBarHeight to 16
End_Procedure
|
|
59
|
How do I select a shortcut
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComExpandShortcutCount to 1
Set ComSelectShortcut to "Set <img>2</img>"
End_Procedure
|
|
58
|
How do I show or hide the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Set ComExpandShortcutCount to 1
End_Procedure
|
|
57
|
How do I access the groups collection
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
End_Procedure
|
|
56
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
Procedure OnCreate
Forward Send OnCreate
Set ComFormatAnchor False to "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
Set ComHighlightItemType to OLEexNoHighlight
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group <a1><b>1</b></a>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
55
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
Procedure OnCreate
Forward Send OnCreate
Set ComFormatAnchor False to "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
Set ComHighlightItemType to OLEexNoHighlight
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item <a1><b>1</b></a>" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
54
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
Procedure OnCreate
Forward Send OnCreate
Set ComHighlightItemType to OLEexNoHighlight
Set ComFormatAnchor True to "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group <a1><b>1</b></a>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
53
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
Procedure OnCreate
Forward Send OnCreate
Set ComHighlightItemType to OLEexNoHighlight
Set ComFormatAnchor True to "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item <a1><b>1</b></a>" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
52
|
How can I add several pictures and icons to an item
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComItemHeight of hoGroup to 48
Variant voItem
Get ComAddItem of hoGroup "<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem to 2
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
51
|
How can I add several pictures and icons to an item
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComItemHeight of hoGroup to 48
Variant voItem
Get ComAddItem of hoGroup "<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem to 2
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
50
|
How can I add several pictures to an item
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComItemHeight of hoGroup to 48
Variant voItem
Get ComAddItem of hoGroup "<img>pic1</img> text <img>pic2</img>" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
49
|
How can I add several pictures to a group
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Set ComGroupHeight to 48
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComImage of hoGroup to 2
Set ComCaptionFormat of hoGroup to OLEexHTML
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture
Set ComPicture of hoGroup to (vPicture)
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
48
|
How can I add several pictures and icons to a group
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Set ComGroupHeight to 48
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
47
|
How can I add several pictures to a group
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Set ComGroupHeight to 48
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "<img>pic1</img> text <img>pic2</img>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture
Set ComPicture of hoGroup to (vPicture)
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
46
|
How can I add several pictures to a group
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Set ComGroupHeight to 48
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "<img>pic1</img> text <img>pic2</img>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
45
|
How do I force refreshing the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
44
|
I've seen that the width of the tooltip is variable. Can I make it larger
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipWidth to 328
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
43
|
How do I let the tooltip being displayed longer
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipPopDelay to 10000
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
42
|
Can I change the default border of the tooltip, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexToolTipAppearance to |CI$1000000
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
41
|
Can I change the background color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
40
|
Does the tooltip support HTML format
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>"
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
39
|
Can I change the forecolor for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "This is a bit of text that's shown when the cursor hovers the group."
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
38
|
Can I change the foreground color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
37
|
Can I change the font for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to the normal font"
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
36
|
Can I change the font for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Variant voStdFont
Get ComToolTipFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Tahoma"
Set ComSize of hoStdFont to 14
Send Destroy to hoStdFont
Set ComToolTipWidth to 364
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "This is a bit of text that's shown when the cursor hovers the group."
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
35
|
How do I disable showing the tooltip for all control
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 0
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "This is a bit of text that's shown when the cursor hovers the group."
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
34
|
How do I show the tooltip quicker
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "This is a bit of text that's shown when the cursor hovers the group."
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
33
|
How do I call your x-script language
Procedure OnCreate
Forward Send OnCreate
Variant voGroup
Get ComExecuteTemplate "Groups.Add(`Group 1`)" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Send Destroy to hoGroup
End_Procedure
|
|
32
|
How do I call your x-script language
Procedure OnCreate
Forward Send OnCreate
Set ComTemplate to "BackColor = RGB(255,0,0)"
End_Procedure
|
|
31
|
How do I remove the control's borders
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLEexNone
Set ComBorderWidth to 0
Set ComBorderHeight to 0
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item 1" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem to 1
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Send ComEndUpdate
End_Procedure
|
|
30
|
How do I specify width or the height of the control's borders
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLEexNone
Set ComBorderWidth to 0
Set ComBorderHeight to 0
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item 1" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem to 1
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Send ComEndUpdate
End_Procedure
|
|
27
|
How do I specify to highlight the items in the group, when the cursor hovers the item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHighlightItemType to OLEexUnion
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item 1" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem to 1
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Send ComEndUpdate
End_Procedure
|
|
26
|
How do I specify to highlight the items in the group, when the cursor hovers the item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHighlightItemType to OLEexIcon
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item 1" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem to 1
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Send ComEndUpdate
End_Procedure
|
|
25
|
How do I specify to highlight the items in the group, when the cursor hovers the item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHighlightItemType to OLEexCaption
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item 1" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem to 1
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Send ComEndUpdate
End_Procedure
|
|
24
|
How do I specify the way the control highlight the items in the group
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHighlightItemType to OLEexNoHighlight
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Send ComEndUpdate
End_Procedure
|
|
23
|
Is there any function to avoid painting the control while adding multiple items and groups
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Send ComEndUpdate
End_Procedure
|
|
22
|
How do I decrease the delay to scroll a group
Procedure OnCreate
Forward Send OnCreate
Set ComDelayScroll to 0
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
Send Destroy to hoGroup1
Send Destroy to hoGroups1
End_Procedure
|
|
21
|
How do I display icons
Procedure OnCreate
Forward Send OnCreate
Set ComSmallIcons to True
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComImage of hoGroup to 1
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
20
|
How do I display 32x32 icons
Procedure OnCreate
Forward Send OnCreate
Set ComSmallIcons to False
Set ComGroupHeight to 36
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComImage of hoGroup to 1
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
19
|
How do I specify the height of the groups
Procedure OnCreate
Forward Send OnCreate
Set ComGroupHeight to 40
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Get ComAdd of hoGroups1 "Group 2" to Nothing
Send Destroy to hoGroups1
End_Procedure
|
|
18
|
How do I change the visual appearance of the groups
Procedure OnCreate
Forward Send OnCreate
Set ComGroupAppearance to OLEexSingle
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Get ComAdd of hoGroups1 "Group 2" to Nothing
Send Destroy to hoGroups1
End_Procedure
|
|
17
|
How do I change the visual appearance of the groups, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackColorGroup to |CI$1000000
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Get ComAdd of hoGroups1 "Group 2" to Nothing
Send Destroy to hoGroups1
End_Procedure
|
|
16
|
How do I change the background color for the groups
Procedure OnCreate
Forward Send OnCreate
Set ComBackColorGroup to (RGB(255,0,0))
Set ComBackColorGroup2 to (RGB(255,0,0))
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
End_Procedure
|
|
15
|
How do I change the background color for the groups
Procedure OnCreate
Forward Send OnCreate
Set ComBackColorGroup to (RGB(255,0,0))
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
End_Procedure
|
|
14
|
How do I change the control's foreground color
Procedure OnCreate
Forward Send OnCreate
Set ComForeColor to (RGB(0,0,255))
Set ComForeColorGroup to (RGB(255,0,0))
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Get ComAdd of hoGroups1 "Group 2" to Nothing
Send Destroy to hoGroups1
End_Procedure
|
|
13
|
How can I change the control's font
Procedure OnCreate
Forward Send OnCreate
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Tahoma"
Send Destroy to hoStdFont
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
End_Procedure
|
|
12
|
How do I change the control's foreground color
Procedure OnCreate
Forward Send OnCreate
Set ComForeColor to (RGB(255,0,0))
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
11
|
How do I change the control's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(200,200,200))
End_Procedure
|
|
10
|
How do I change the control's border, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComAppearance to |CI$1000000
End_Procedure
|
|
9
|
How do I remove the control's border
Procedure OnCreate
Forward Send OnCreate
Set ComAppearance to OLEexNone
End_Procedure
|
|
8
|
How do I put a picture on the center of the control
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEMiddleCenter
End_Procedure
|
|
7
|
How do I resize/stretch a picture on the control's background
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEStretch
End_Procedure
|
|
6
|
How do I put a picture on the control's center right bottom side
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLELowerRight
End_Procedure
|
|
5
|
How do I put a picture on the control's center left bottom side
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLELowerLeft
End_Procedure
|
|
4
|
How do I put a picture on the control's center top side
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEUpperCenter
End_Procedure
|
|
3
|
How do I put a picture on the control's right top corner
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEUpperRight
End_Procedure
|
|
2
|
How do I put a picture on the control's left top corner
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEUpperLeft
End_Procedure
|
|
1
|
How do I put a picture on the control's background
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture to (vPicture)
End_Procedure
|